-- card: 6467 from stack: in
-- bmap block id: 6918
-- flags: 0000
-- background id: 2777
-- name: Uploads
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    repeat 3
      put recvUpTo(port,return,2,false,false) into newIn
      put newIn after reslts
    end repeat
  end if
end idle

on opencard
  global lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=305 right=327 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log off
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"g"&return
  answer "What'll it be?" with "Yes, bye" or "NO WAIT!!" or "Survey"
  if it="Yes, bye" then
    sendsPort port,false,"y"&return
    put empty into card field 1
    go card 1
  else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  else sendSPort port,false,"a"&return

end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=281 right=303 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"e"&return
  go card "Main Menu"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=257 right=279 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"b"&return
  go card "File Menu"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "info"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=182 top=124 right=146 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text-Only File
----- HyperTalk script -----
on mouseUp
  global port
  answer "WARNING! this operation cannot be cancelled" with "Continue" or "Abort"
  if it is "Continue" then
    sendSPort port,false,"1"&return
    wait 35
    sendSPort port,false,"N"&return
    Ask "enter filename (12 characters only)"
    repeat until length of it<13
      Ask "enter filename (12 characters only)"
    end repeat
    if it is empty then
      sendSPort port,false,return
    else
      sendSPort port,false,it&return
      sendX
    end if
  else
  end if

end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=132 top=154 right=178 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: .sit and Other Mac Documents
----- HyperTalk script -----
on mouseUp
  global port
  answer "WARNING! this operation cannot be cancelled" with "Continue" or "Abort"
  if it is "Continue" then
    sendSPort port,false,"1"&return
    wait 35
    sendSPort port,false,"Y"&return
    Ask "enter filename (12 characters only)"
    repeat until length of it<13
      Ask "enter filename (12 characters only)"
    end repeat
    if it is empty then
      sendSPort port,false,return
    else
      sendSPort port,false,it&return
      sendX
    end if
  else
  end if
end mouseUp



-- part 7 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=99 top=103 right=172 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: info
----- HyperTalk script -----
on mouseup
  hide card field "info"
end mouseup


-- part contents for background part 4
----- text -----
Sun, Sep 25, 1988

-- part contents for background part 5
----- text -----
10:17 PM

-- part contents for card part 7
----- text -----
Choose the type of file you are going to Upload.  99.9% of the time you will be uploading a .sit or Other Macintosh document.  Use the Text-Only option when you are uploading just that: text only files.  Text-only files that have been Stuffited should be uploaded as .sit files.  Thank you.

-- part contents for background part 3
----- text -----
Sat, Sep 24, 1988, 12:06 AM